Index: Prod/Product.cls.xml
===================================================================
diff -u -r5565 -r5569
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 5565)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 5569)
@@ -703,10 +703,11 @@
 	 Set CtrlNr = $E(Dossier,$L(Dossier))
  }Else{
 	 Set Loop=$L(Dossier)
+	 Set tmpChar=$E(Dossier,Loop)
 	 While Loop >= 1  && '$IsValidNum(tmpChar) {
-		 Set tmpChar=$E(Dossier,Loop)
 		 Set CtrlNr=tmpChar_CtrlNr
 	 	 Set Loop = Loop - 1 
+	 	 Set tmpChar=$E(Dossier,Loop)
 	 }
  }
  Quit:(CtrlNr="") ""