diff --git a/wip-hugo/routines/arithmatic/mult.s b/wip-hugo/routines/arithmatic/mult.s
index 86473c2..ee8dc9d 100644
--- a/wip-hugo/routines/arithmatic/mult.s
+++ b/wip-hugo/routines/arithmatic/mult.s
@@ -5,7 +5,7 @@
         ;;= X + X*%1000  *%11111
         ;; to remember this for later, for duuqnds papper
 
-.proc mult; user-procedure :clobbers A :clobbers-arguments 2
+.proc mult; user-procedure :clobbers (A,X) :clobbers-arguments 2
 
         ;; https://en.wikipedia.org/wiki/Ancient_Egyptian_multiplication#Russian_peasant_multiplication