From 41799861da0bd4f8a68acb2634e2ecb3e9038fc4 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 14 May 2011 17:17:16 +0000
Subject: cleanup

---
 src/boot/translator.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index 6dba8a2f..84eebde8 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -671,7 +671,7 @@ shoeItem (str)==
 stripm (x,pk,bt)==
   atom x =>
     symbol? x =>
-      SYMBOL_-PACKAGE x = bt => makeSymbol(symbolName x,pk)
+      symbolScope x = bt => makeSymbol(symbolName x,pk)
       x
     x
   [stripm(first x,pk,bt),:stripm(rest x,pk,bt)]
-- 
cgit v1.2.3