see: need to clone variables

diff --git a/basis/see/see.factor b/basis/see/see.factor
index cd4e30e00659066ed1667ec3dfe6434a63166a0d..9aafd13cc38397f6e1cf72906a82df20a3968733 100644 (file)
--- a/basis/see/see.factor
+++ b/basis/see/see.factor
@@ -22,7 +22,7 @@ GENERIC: see* ( defspec -- )
         { string-limit? f }
         { margin 0 }
         { line-limit 1 }
-    } [
+    } clone [
         [ [ synopsis* ] with-in ] with-string-writer
     ] with-variables ;