--- gforth/see-ext.fs	2007/12/31 18:40:24	1.11
+++ gforth/see-ext.fs	2012/09/17 20:10:23	1.13
@@ -1,6 +1,6 @@
 \ see-ext.fs extentions for see locals, floats
 
-\ Copyright (C) 1995,1996,1997,2003 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,2003,2007 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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+ ;