Fix

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index 022490a907bcaa90c7c25f871a0af7d8e38d4eae..2e0aa4c2796753f9db8513d87e5b75670a8da115 100755 (executable)
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@@ -29,6 +29,7 @@ M: integer effect>string number>string ;
 M: pair effect>string first2 [ effect>string ] bi@ ": " swap 3append ;
 
 : stack-picture ( seq -- string )
+    dup integer? [ "object" <repetition> ] when
     [ [ effect>string % CHAR: \s , ] each ] "" make ;
 
 M: effect effect>string ( effect -- string )