Index: vhUnitTest/vhLib/DataM.cls.xml
===================================================================
diff -u -r957 -r3346
--- vhUnitTest/vhLib/DataM.cls.xml	(.../DataM.cls.xml)	(revision 957)
+++ vhUnitTest/vhLib/DataM.cls.xml	(.../DataM.cls.xml)	(revision 3346)
@@ -13,6 +13,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGeefBIndexNietNumericNode">
+<Implementation><![CDATA[
+	do $$$AssertEquals($$GeefBIndex^vhLib.DataM("J",25),"J25")
+	do $$$AssertEquals($$GeefBIndex^vhLib.DataM("J5005",25),"J500525")
+	do $$$AssertEquals($$GeefBIndex^vhLib.DataM("J5005J",25),"J5005J25")
+]]></Implementation>
+</Method>
+
 <Method name="TestGeefPiece">
 <Implementation><![CDATA[
 	do $$$AssertEquals($$GeefPiece^vhLib.DataM(101),1)
Index: vhLib/DataM.mac.rou
===================================================================
diff -u -r412 -r3346
--- vhLib/DataM.mac.rou	(.../DataM.mac.rou)	(revision 412)
+++ vhLib/DataM.mac.rou	(.../DataM.mac.rou)	(revision 3346)
@@ -2,7 +2,8 @@
 
 
 GeefBIndex(Node,Piece)
-	quit ( Node + 1 ) _ $$LeftPad^vhLib(Piece,2)
+	quit:$IsValidNum(Node) ( Node + 1 ) _ $$LeftPad^vhLib(Piece,2)
+	quit Node _ $$LeftPad^vhLib(Piece,2)
 	
 GeefNode(BIndex)
 	quit (BIndex\100)-1