Index: runtime/parrot/library/P6object.pir
===================================================================
--- runtime/parrot/library/P6object.pir	(revision 32192)
+++ runtime/parrot/library/P6object.pir	(working copy)
@@ -401,21 +401,21 @@
 
 =cut
 
 .sub 'new_class' :method
     .param pmc name
     .param pmc options         :slurpy :named
 
     .local pmc parrotclass, hll
 
     hll = options['hll']
-    $I0 = defined $P0
+    $I0 = defined hll
     if $I0, have_hll
     $P0 = getinterp
     $P0 = $P0['namespace';1]
     $P0 = $P0.get_name()
     hll = shift $P0
     options['hll'] = hll
   have_hll:
 
     $I0 = isa name, 'String'
     if $I0, parrotclass_string