--- gforth/see-ext.fs	2007/12/31 19:02:24	1.12
+++ gforth/see-ext.fs	2012/09/17 20:10:23	1.13
@@ -26,7 +26,7 @@
 : c-@local#
     Display? IF
 	S" @local" 0 .string
-	dup @ dup 1 cells / abs 0 <# #S rot sign #> 0 .string bl cemit
+	dup @ dup cell/ abs 0 <# #S rot sign #> 0 .string bl cemit
     THEN
     cell+ ;
 
@@ -45,7 +45,7 @@
 : c-f@local#
     Display? IF
 	S" f@local" 0 .string
-	dup @ dup 1 floats / abs 0 <# #S rot sign #> 0 .string bl cemit
+	dup @ dup float/ abs 0 <# #S rot sign #> 0 .string bl cemit
     THEN
     cell+ ;