Index: trunk/ippTasks/diskbalance.pro
===================================================================
--- trunk/ippTasks/diskbalance.pro	(revision 31870)
+++ trunk/ippTasks/diskbalance.pro	(revision 31880)
@@ -75,4 +75,5 @@
   book listpage balanceControl control
   echo "balance so_ids: $BALANCE_SO_ID_START $BALANCE_SO_ID_RANGE"
+  echo "targetting:     $BALANCE_TARGET"
 end
 
@@ -81,4 +82,8 @@
   echo "$N pages in book"
   book listbook balancePending
+end
+
+macro set.balance.target
+  $BALANCE_TARGET = $1
 end
 
@@ -95,4 +100,5 @@
 $BALANCE_LIMIT       = 500
 $BALANCE_OFFSET      = 0
+$BALANCE_TARGET      = SOURCE
 # Select Nebulous objects which should be shuffled
 task           balance.load
@@ -158,5 +164,5 @@
 
   # locked list
-  task.exit    default
+:  task.exit    default
     showcommand failure
   end
@@ -195,8 +201,14 @@
     book getword balancePending $pageName key              -var KEY
     book getword balancePending $pageName source_name      -var SOURCE
+    book getword balancePending $pageName source_host      -var SOURCE_HOST
     book getword balancePending $pageName destination_name -var DESTINATION
     book getword balancePending $pageName destination_host -var DEST_HOST
     # Fix this with multihost restriction when possible.
-    set.host.for.balance $DEST_HOST
+    if ("$target" == "DESTINATION")
+       set.host.for.balance $DEST_HOST
+    else 
+       set.host.for.balance $SOURCE_HOST
+    end
+   
 
     stdout NULL