Index: KBKAL2.mac.rou
===================================================================
diff -u -r734 -r921
--- KBKAL2.mac.rou	(.../KBKAL2.mac.rou)	(revision 734)
+++ KBKAL2.mac.rou	(.../KBKAL2.mac.rou)	(revision 921)
@@ -18,7 +18,7 @@
 S1 S K=K($P(X,U,2)) I $L($P(X,U,3)) X "S K="_$P(X,U,3)
 S1Z Q
  ;
-S2 S (K,R)=$$TRIMN^vhRtn1(K)
+S2 S (K,R)=$$TRIMIDENT^vhRtn1(K) ;[IDENT] CW
  Q
  ;
 S3 S (K,R)=$$UPTRIMAN^vhRtn1(K)