diff --git a/images/apple/DRAWL.po b/images/apple/DRAWL.po
index 851e31f..f5a1d79 100644
Binary files a/images/apple/DRAWL.po and b/images/apple/DRAWL.po differ
diff --git a/src/lisp/lores.lisp b/src/lisp/lores.lisp
index 8bf04d5..69fbb8a 100644
--- a/src/lisp/lores.lisp
+++ b/src/lisp/lores.lisp
@@ -11,7 +11,7 @@
     )
   ))
   (PLOTSIN (LAMBDA ()
-    (PLOTFUNC '(LAMBDA (S) (SIN (* S PI))))
+    (PLOTFUNC (FUNCTION (LAMBDA (S) (SIN (* S PI)))))
   ))
   (PLOTCOS (LAMBDA ()
     (PLOTFUNC '(LAMBDA (S) (COS (* S PI))))
diff --git a/src/lisp/s-expr.pla b/src/lisp/s-expr.pla
index 6245d42..5c53c80 100644
--- a/src/lisp/s-expr.pla
+++ b/src/lisp/s-expr.pla
@@ -825,10 +825,10 @@ def eval_funarg(funarg, argvals)
   // Build arg list before prepending to new assoc_list
   //
   arglist = NULL
-  argbase = eval_args(argvals)
   push_sweep_stack(assoc_list) // Save current association list
+  argbase    = eval_args(argvals)
   assoc_list = funarg=>cdr=>cdr=>car // Swap associcate list pointer
-  argsyms = funexpr=>cdr=>car
+  argsyms    = funexpr=>cdr=>car
   build_args(funexpr=>cdr=>car, argbase)
   if trace
     puts("\nFUNARG:"); print_expr(funarg)