--- a/Float.st	Wed Apr 07 12:13:33 2004 +0200
+++ b/Float.st	Wed Apr 07 12:19:44 2004 +0200
@@ -1340,7 +1340,6 @@
     "Modified: / 16.11.2001 / 14:14:43 / cg"
 ! !
 
-
 !Float methodsFor:'printing & storing'!
 
 printString
@@ -1388,9 +1387,19 @@
         if ((*cp == '.') || (*cp == 'E') || (*cp == 'e')) break;
     }
     if (!*cp && (cp[-1] >= '0') && (cp[-1] <= '9')) {
-        *cp++ = '.';
+        if (__isCharacter(@global(DecimalPointCharacter))) { 
+            *cp++ = __intVal(_characterVal(@global(DecimalPointCharacter)));
+        } else {
+            *cp++ = '.';
+        }
         *cp++ = '0';
         *cp = '\0';
+    } else {
+        if (cp && (*cp == '.')) {
+            if (__isCharacter(@global(DecimalPointCharacter))) { 
+                *cp = __intVal(_characterVal(@global(DecimalPointCharacter)));
+            }
+        }
     }
 
     s = __MKSTRING(buffer COMMA_SND);
@@ -1415,6 +1424,17 @@
         1.2e30 printString
         (1.0 uncheckedDivide:0) printString
         (0.0 uncheckedDivide:0) printString
+
+        DecimalPointCharacter := $,.
+        1.234 printString. 
+        1.0 printString    
+        1.234 printString  
+        1e10 printString   
+        1.2e3 printString  
+        1.2e30 printString 
+        (1.0 uncheckedDivide:0) printString    
+        (0.0 uncheckedDivide:0) printString
+        DecimalPointCharacter := $. 
     "
 !
 
@@ -2474,7 +2494,7 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.151 2003-11-11 13:16:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.152 2004-04-07 10:19:44 werner Exp $'
 ! !
 
 Float initialize!