--- a/PrintConverter.st	Tue Feb 11 20:02:28 1997 +0100
+++ b/PrintConverter.st	Tue Feb 11 20:09:24 1997 +0100
@@ -392,10 +392,21 @@
      - if the string is empty or invalid, convert to nil"
 
     valueToStringBlock := [:num | 
-	num isNil ifTrue:[''] 
-		  ifFalse:[num printString]].
-    stringToValueBlock := [:string | 
-	Number readFromString:string onError:nil]
+        num isNil ifTrue:[''] 
+                  ifFalse:[num printString]].
+    stringToValueBlock := [:string |
+        |s|
+
+        s := string.
+        (s endsWith:'.') ifTrue:[
+            s := s , '0'
+        ].
+        Number readFromString:s onError:nil
+    ]
+
+
+
+
 !
 
 initForString
@@ -430,5 +441,5 @@
 !PrintConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PrintConverter.st,v 1.15 1997-02-11 10:54:23 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PrintConverter.st,v 1.16 1997-02-11 19:08:41 ca Exp $'
 ! !