Index: /EWD/ewdapps/so/r/ewdu.m
===================================================================
--- /EWD/ewdapps/so/r/ewdu.m	(revision 1315)
+++ /EWD/ewdapps/so/r/ewdu.m	(revision 1316)
@@ -67,5 +67,8 @@
  ; TODO: Handle the rest of the return values
  N return
- D VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac_";"_vc))
+ ; if ac contains ;, then it contains the verify code
+ ; else, send ac;vc
+ if ac[";" d VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac))
+ else  d VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac_";"_vc))
  i return(0)>0,'return(2) q "" ; Sign on successful!
  i return(0)=0,return(2) q "CVC"  ; Verify Code must be changed NOW!