Index: cgen/operand.scm
===================================================================
RCS file: /cvs/src/src/cgen/operand.scm,v
retrieving revision 1.10
diff -c -p -r1.10 operand.scm
*** cgen/operand.scm	15 Jun 2005 21:28:18 -0000	1.10
--- cgen/operand.scm	29 Jul 2005 18:46:16 -0000
***************
*** 295,301 ****
  	      result)
  	    (parse-error "op:new-mode"
  			 (string-append "invalid mode for operand `"
! 					(obj:name op)
  					"'")
  			 new-mode-name))))
  )
--- 295,301 ----
  	      result)
  	    (parse-error "op:new-mode"
  			 (string-append "invalid mode for operand `"
! 					(->string (obj:name op))
  					"'")
  			 new-mode-name))))
  )