--- a/TypeConverter.st	Mon Jan 24 10:41:35 2000 +0100
+++ b/TypeConverter.st	Mon Jan 24 12:07:45 2000 +0100
@@ -1,8 +1,8 @@
 PluggableAdaptor subclass:#TypeConverter
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Interface-Support-Models'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Support-Models'
 !
 
 !TypeConverter class methodsFor:'documentation'!
@@ -792,7 +792,7 @@
 
                 |value s|
 
-                string isEmpty ifTrue:[
+                string size == 0 ifTrue:[
                     value := nil
                 ] ifFalse:[
                     s := string withoutSeparators.
@@ -904,5 +904,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.29 1999-11-16 16:02:36 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.30 2000-01-24 11:07:45 ca Exp $'
 ! !