Fix exporting circumfixes and terms

rakudo · Aug 31, 2014 · ccee46e · ccee46e
1 parent 8007565
commit ccee46e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -473,7 +473,7 @@ class Perl6::World is HLL::World {
             if $categorical {
                 $/.CURSOR.add_categorical(~$categorical[0], ~$categorical[1],
                     ~$categorical[0] ~ ':sym<' ~$categorical[1] ~ '>',
-                    $_.key, $_.value);
+                    nqp::substr($_.key, 1), $_.value);
             }
         }
     }