diff --git a/lisp/exwm-lib/exwm-tagging/exwm-tag.el b/lisp/exwm-lib/exwm-tagging/exwm-tag.el
index 00d541d..2803156 100644
--- a/lisp/exwm-lib/exwm-tagging/exwm-tag.el
+++ b/lisp/exwm-lib/exwm-tagging/exwm-tag.el
@@ -71,11 +71,11 @@
 
 ;; Add these hooks in a suitable place (e.g., as done in exwm-config-default)
 
-(defun simulate-C-t (arg)
-  (interactive "*p")
+(defun simulate-C-t ()
+  (interactive)
   (if (eq major-mode 'exwm-mode)
       (exwm-input--fake-key ?\C-t)
-    (transpose-chars arg)))
+    (call-interactively #'transpose-chars)))
 
 ;; (key-binding (kbd "C-t C-t"))