--- a/DoWhatIMeanSupport.st	Mon Dec 22 00:32:28 2014 +0100
+++ b/DoWhatIMeanSupport.st	Mon Dec 22 13:34:34 2014 +0100
@@ -2845,13 +2845,16 @@
     nameIsOK := false.
     addWithFactorBlock :=
         [:eachNames :factor |
+            |distanceComputeBlock|
+
+            distanceComputeBlock := (getDistanceComputeBlockWithWeight value:factor).
             (eachNames includes:nm) ifTrue:[nameIsOK := true].
             eachNames do:[:nameToAdd |
                 (nameToAdd ~= nm) ifTrue:[  "/ not again
                     (variablesAlreadyAdded includes:nameToAdd) ifFalse:[  "/ not again
                         variablesAlreadyAdded add:nameToAdd.
                         allVariables add:nameToAdd.
-                        allDistances add:((getDistanceComputeBlockWithWeight value:factor) value:nameToAdd).
+                        allDistances add:(distanceComputeBlock value:nameToAdd).
                     ]
                 ]
             ]
@@ -4739,10 +4742,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.215 2014-11-04 10:48:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.216 2014-12-22 12:34:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.215 2014-11-04 10:48:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.216 2014-12-22 12:34:34 cg Exp $'
 ! !