--- gforth/wf.fs	2005/06/05 22:11:09	1.36
+++ gforth/wf.fs	2005/06/13 19:36:41	1.37
@@ -192,11 +192,13 @@ Create jfif   $FF c, $D8 c, $FF c, $E0 c
   scratch r> 0 max /string 0 max -zeros
   dup IF  '. emit  THEN  type ;
 
+12.9e FConstant pixels
+
 : size-does> ( -- )  DOES> ( -- )
     ." img." dup body> >name .name
     2@ ." { width: "
-    s>d d>f 13.8e f/ f.size ." em; height: "
-    s>d d>f 13.8e f/ f.size ." em; }" cr ;
+    s>d d>f pixels f/ f.size ." em; height: "
+    s>d d>f pixels f/ f.size ." em; }" cr ;
 
 : size-css ( file< > -- )
     outfile-id >r