--- a/FloatArray.st	Wed May 30 17:40:51 2007 +0200
+++ b/FloatArray.st	Wed May 30 17:43:32 2007 +0200
@@ -164,11 +164,29 @@
     "Created: / 30-05-2007 / 17:42:13 / cg"
 !
 
+/ anObject
+    "return the division of the receiver and the argument.
+     The argument may either be a scalar or another vector"
+
+    ^ self clone /= anObject
+
+    "
+     #(1 2 3 4) asFloatArray / 3      
+     #(1 2 3 4) asFloatArray / #(1 2 3 4) asFloatArray  
+    "
+
+    "Created: / 30-05-2007 / 17:46:05 / cg"
+!
+
 /= anObject
-"/        <primitive: 'primitiveDivScalar' module: 'FloatArrayPlugin'>
-	^anObject isNumber
-		ifTrue:[self primDivScalar: anObject asFloat]
-		ifFalse:[self primDivArray: anObject]
+    "divide the argument into the receiver (destructive).
+     The argument may either be a scalar or another vector"
+
+    ^ anObject isNumber
+        ifTrue:[self primDivScalar: anObject asFloat]
+        ifFalse:[self primDivArray: anObject]
+
+    "Modified: / 30-05-2007 / 17:45:46 / cg"
 !
 
 negated
@@ -884,5 +902,5 @@
 !FloatArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FloatArray.st,v 1.22 2007-05-30 15:40:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FloatArray.st,v 1.23 2007-05-30 15:43:32 cg Exp $'
 ! !