--- gforth/string.fs	2012/08/17 22:35:27	1.17
+++ gforth/string.fs	2012/09/17 18:46:46	1.18
@@ -107,5 +107,5 @@
 	2dup + r@ $@len tuck max r@ $!len
 	r@ $@ rot /string bl fill
     THEN
-    r> $@ rot /string rot min move ;
+    r> $@ rot /string rot umin move ;
 [THEN]
\ No newline at end of file