--- a/UnitConverter.st	Thu Jul 24 11:29:43 2003 +0200
+++ b/UnitConverter.st	Thu Jul 24 13:09:34 2003 +0200
@@ -459,14 +459,17 @@
 initializeScaleFactors
     Scaling := IdentityDictionary new.
 
-    Scaling at:#exa   put:1000000000000000000.
-    Scaling at:#peta  put:1000000000000000.
-    Scaling at:#tera  put:1000000000000.
-    Scaling at:#giga  put:1000000000.
-    Scaling at:#mega  put:1000000.
+    Scaling at:#yotta put:1000000000000000000000000.    "/ 10^24
+    Scaling at:#zetta put:1000000000000000000000.       "/ 10^21
+    Scaling at:#exa   put:1000000000000000000.          "/ 10^18
+    Scaling at:#peta  put:1000000000000000.             "/ 10^15
+    Scaling at:#tera  put:1000000000000.                "/ 10^12
+    Scaling at:#giga  put:1000000000.                   "/ 10^9
+    Scaling at:#mega  put:1000000.                      "/ 10^6
     Scaling at:#myria put:10000.
-    Scaling at:#kilo  put:1000.
-    Scaling at:#hecto put:100.
+    Scaling at:#kilo  put:1000.                         "/ 10^3
+    Scaling at:#hecto put:100.                          "/ 10^2
+    Scaling at:#deca  put:10.                           "/ 10^1
     Scaling at:#deci  put:(1/10).
     Scaling at:#centi put:(1/100).
     Scaling at:#milli put:(1/1000).
@@ -475,6 +478,8 @@
     Scaling at:#pico  put:(1/1000000000000).
     Scaling at:#femto put:(1/1000000000000000).
     Scaling at:#atto  put:(1/1000000000000000000).
+    Scaling at:#zepto put:(1/1000000000000000000000).
+    Scaling at:#yocto put:(1/1000000000000000000000000).
 ! !
 
 !UnitConverter class methodsFor:'accessing'!
@@ -913,5 +918,5 @@
 !UnitConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.26 2003-03-21 17:52:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.27 2003-07-24 11:09:34 cg Exp $'
 ! !