--- a/AbstractNumberVector.st	Sat Nov 29 12:53:49 2014 +0100
+++ b/AbstractNumberVector.st	Sat Nov 29 15:30:55 2014 +0100
@@ -90,25 +90,6 @@
      f1 := FloatArray withAll:#(5 -6 3 2 1).
      f1 absMax
     "
-!
-
-length
-    "Return the length of the receiver interpreted as vector
-     (that is the length of the vector from 0.0 @ 0.0 @ ... @ 0.0
-      to the point in the n-dimensional space represented by the receiver)"
-
-    ^ self squaredLength sqrt
-
-    "
-     #(10.0 10.0) asFloatArray length
-     #(10.0 10.0 10.0) asFloatArray length
-    "
-!
-
-squaredLength
-    "Return the squared length of the receiver interpreted as vector"
-
-    ^ self dot: self
 ! !
 
 !AbstractNumberVector methodsFor:'vector arithmetic'!
@@ -133,15 +114,34 @@
      v := #(2.0 2.0 1.0) asDoubleArray.
      v dot:v.            
     "
+!
+
+length
+    "Return the length of the receiver interpreted as vector
+     (that is the length of the vector from 0.0 @ 0.0 @ ... @ 0.0
+      to the point in the n-dimensional space represented by the receiver)"
+
+    ^ self squaredLength sqrt
+
+    "
+     #(10.0 10.0) asFloatArray length
+     #(10.0 10.0 10.0) asFloatArray length
+    "
+!
+
+squaredLength
+    "Return the squared length of the receiver interpreted as vector"
+
+    ^ self dot: self
 ! !
 
 !AbstractNumberVector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractNumberVector.st,v 1.3 2014-02-04 16:40:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractNumberVector.st,v 1.4 2014-11-29 14:30:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractNumberVector.st,v 1.3 2014-02-04 16:40:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractNumberVector.st,v 1.4 2014-11-29 14:30:55 cg Exp $'
 ! !