Index: KSELG.mac.rou
===================================================================
diff -u -r734 -r2925
--- KSELG.mac.rou	(.../KSELG.mac.rou)	(revision 734)
+++ KSELG.mac.rou	(.../KSELG.mac.rou)	(revision 2925)
@@ -22,7 +22,7 @@
 4 S (@Q1,X)=$N(@("^"_Q_"SEL($J,0)"))
 41 I $N(^(X))'=-1 S X=$N(^(X)) G 41
 43 S @(Q1_"X")=X,Q0="^"_Q_"SEL($J,"_Q1_")",K=""
-45 I $P(@Q1," ",2) S $P(@Q1," ",2)=$P(@Q1," ",2)-1
+45 I $P(@Q1," ",2) S:'$D(Q0) $P(@Q1," ",2)=$P(@Q1," ",2)-1 S:$D(Q0) @Q1=$O(@Q0,-1)
  ;
 YZ Q
  ;