--- a/UnitConverter.st	Fri Feb 13 22:48:00 2015 +0100
+++ b/UnitConverter.st	Fri Feb 13 22:53:01 2015 +0100
@@ -977,10 +977,10 @@
                 scaleChar == $m ifTrue:[
                     scale := 1000 * 1000
                 ] ifFalse:[
-                    scaleChar = $g ifTrue:[
+                    scaleChar == $g ifTrue:[
                         scale := 1000 * 1000 * 1000
                     ] ifFalse:[
-                        scaleChar = $t ifTrue:[
+                        scaleChar == $t ifTrue:[
                             scale := 1000 * 1000 * 1000 * 1000
                         ]
                     ]
@@ -1166,10 +1166,10 @@
 !UnitConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.46 2015-02-13 21:48:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.47 2015-02-13 21:53:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.46 2015-02-13 21:48:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.47 2015-02-13 21:53:01 cg Exp $'
 ! !