Index: trunk/ippTasks/survey.pro
===================================================================
--- trunk/ippTasks/survey.pro	(revision 31724)
+++ trunk/ippTasks/survey.pro	(revision 31789)
@@ -231,12 +231,13 @@
 
 macro survey.add.addstar
-  if ($0 != 5)
-    echo "USAGE: survey.add.addstar (label) (dvodb) (minidvodb_group) (stage)"
+  if ($0 != 6)
+    echo "USAGE: survey.add.addstar (tag) (label) (dvodb) (minidvodb_group) (stage)"
     break
   end
   book newpage SURVEY_ADDSTAR $1
-  book setword SURVEY_ADDSTAR $1 DVODB $2
-  book setword SURVEY_ADDSTAR $1 MINIDVODB_GROUP $3
-  book setword SURVEY_ADDSTAR $1 STAGE $4  
+  book setwork SURVEY_ADDSTAR $1 LABEL $2
+  book setword SURVEY_ADDSTAR $1 DVODB $3
+  book setword SURVEY_ADDSTAR $1 MINIDVODB_GROUP $4
+  book setword SURVEY_ADDSTAR $1 STAGE $5  
   book setword SURVEY_ADDSTAR $1 STATE PENDING
 end
@@ -244,5 +245,5 @@
 macro survey.del.addstar
   if ($0 != 2)
-    echo "USAGE: survey.del.addstar (label)"
+    echo "USAGE: survey.del.addstar (tag)"
     break
   end
@@ -736,13 +737,13 @@
     endif
 
-    book getpage SURVEY_ADDSTAR 0 -var label -key STATE NEW
-    if ("$label" == "NULL")
+    book getpage SURVEY_ADDSTAR 0 -var tag -key STATE NEW
+    if ("$tag" == "NULL")
       # All labels have been done --- reset
 #      echo "Resetting labels"
       for i 0 $N
-        book getpage SURVEY_ADDSTAR $i -var label
-	book setword SURVEY_ADDSTAR $label STATE NEW
+        book getpage SURVEY_ADDSTAR $i -var tag
+	book setword SURVEY_ADDSTAR $tag STATE NEW
       end
-      book getpage SURVEY_ADDSTAR 0 -var label -key STATE NEW
+      book getpage SURVEY_ADDSTAR 0 -var tag -key STATE NEW
 
       # Select different database
@@ -751,8 +752,9 @@
     end
 
-    book setword SURVEY_ADDSTAR $label STATE DONE
-    book getword SURVEY_ADDSTAR $label DVODB -var dvodb
-    book getword SURVEY_ADDSTAR $label MINIDVODB_GROUP -var minidvodb_group
-    book getword SURVEY_ADDSTAR $label STAGE -var stage
+    book setword SURVEY_ADDSTAR $tag STATE DONE
+    book getword SURVEY_ADDSTAR $tag LABEL -var label
+    book getword SURVEY_ADDSTAR $tag DVODB -var dvodb
+    book getword SURVEY_ADDSTAR $tag MINIDVODB_GROUP -var minidvodb_group
+    book getword SURVEY_ADDSTAR $tag STAGE -var stage