Mtext Height issue

Hi all,

I am working on a simple function to add/remove a non-printing stamp our drawings to specify a preliminary drawing. The issue is that I cannot seem to get AutoCAD to accept the text height in the Mtext command. Below is the code; try it and see.

(DEFUN NOT4CONSTRUCTION	(/ CTR HGT PT1 PT2)
  (IF (EQ (GETVAR "CLAYER") "NOT4CONSTRUCTION") (SETVAR "CLAYER" "0"))
  (IF (EQ (GETVAR "CTAB") "MODEL") (SETQ HGT "8'-4\"") (SETQ HGT "1\""))
  (IF (= (ASSOC 0 (TBLSEARCH "layer" "NOT4CONSTRUCTION")) nil)
    (PROGN
      (VL-CMDF "-LAYER" "M" "NOT4CONSTRUCTION" "C" "30" "" "TR" 90 "" "P" "N" "" "")
      (SETQ PT1	(LIST (- (CAR (GETVAR "viewctr"))
			 (/ (* (GETVAR "viewsize") (/ (CAR (GETVAR "screensize")) (CADR (GETVAR "screensize")))) 2)
		      )
		      (- (CADR (GETVAR "viewctr")) (/ (GETVAR "viewsize") 2))
		      0
		)
	    PT2	(LIST (+ (CAR (GETVAR "viewctr"))
			 (/ (* (GETVAR "viewsize") (/ (CAR (GETVAR "screensize")) (CADR (GETVAR "screensize")))) 2)
		      )
		      (+ (CADR (GETVAR "viewctr")) (/ (GETVAR "viewsize") 2))
		      0
		)
	    CTR	(MAPCAR '/ (MAPCAR '+ PT1 PT2) '(2 2 2))
      )
      (vl-cmdf "_.mtext" CTR "H" HGT "J" "MC" "S" "DesignStudio" "W" "30" "PRELIMINARY" "NOT FOR CONSTRUCTION" "")
    )
    (VL-CMDF "-LAYDEL" "N" "NOT4CONSTRUCTION" "" "Y")
  )
  (PRINC)
)

 Please, if you can, help.

BTW- I'm on AC2013 if that makes a difference.

Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.

Image may be NSFW.
Clik here to view.