--- a/UnitConverter.st	Sat Apr 27 14:45:52 2013 +0200
+++ b/UnitConverter.st	Tue May 07 17:28:33 2013 +0200
@@ -989,19 +989,19 @@
      or nil if not found"
 
     Conversions isNil ifTrue:[
-	self initializeConversions
+        self initializeConversions
     ].
 
     Scaling keysAndValuesDo:[:name :factor |
-	|rest|
+        |rest|
 
-	(what startsWith:name) ifTrue:[
-	    rest := what copyFrom:(name size+1).
-	    rest := rest asSymbolIfInterned.
-	    rest notNil ifTrue:[
-		^ rest -> factor.
-	    ]        
-	].
+        (what startsWith:name) ifTrue:[
+            rest := what withoutPrefix:name.
+            rest := rest asSymbolIfInterned.
+            rest notNil ifTrue:[
+                ^ rest -> factor.
+            ]        
+        ].
     ].
     ^ nil
 
@@ -1018,10 +1018,10 @@
 !UnitConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.40 2013-04-25 13:09:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.41 2013-05-07 15:28:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.40 2013-04-25 13:09:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.41 2013-05-07 15:28:33 cg Exp $'
 ! !