diff --git a/src/rrs/mgprim.urs008 b/src/rrs/mgprim.urs009
similarity index 99%
rename from src/rrs/mgprim.urs008
rename to src/rrs/mgprim.urs009
index 8e53e414..25eda4a6 100644
--- a/src/rrs/mgprim.urs008
+++ b/src/rrs/mgprim.urs009
@@ -111,7 +111,8 @@ COMSWITCH
 	#DECL((X T1 L H) FIX
 	      (VALUE) ATOM)
 	<SET T1 <- .X <* </ .X 8192> 8192>>>
-	<COND (<L? .T1 .0><SET T1 <+ .T1 16384>>)>
+	;" fix for  parse error in MDL56 "
+	<COND (<L? .T1 0.0><SET T1 <+ .T1 16384>>)>
 	<SET H </ .T1 128>>
 	<SET L <- .T1 <* .H 128>>>
 	<MIGSSEND .H .L>