diff --git a/wip-duuqnd/user-side-compiler/middle/jigs.lisp b/wip-duuqnd/user-side-compiler/middle/jigs.lisp
index 6f6cd22..4097bfb 100644
--- a/wip-duuqnd/user-side-compiler/middle/jigs.lisp
+++ b/wip-duuqnd/user-side-compiler/middle/jigs.lisp
@@ -80,6 +80,8 @@ end")
                 (compile-node (match-syntax program) builder)
                 root-block)))
       (do-iblocks (ib rb)
+        (optim-reorder-arguments ib)
+        (optim-direct-variable-use ib)
         (optim-call-duplicate-args ib)
         (optim-remove-unused ib))
       (print-iblocks rb)