diff --git a/init.el b/init.el
index b12500f..477149e 100644
--- a/init.el
+++ b/init.el
@@ -677,7 +677,7 @@ inserted between the braces between the braces."
 (let ((character ?a))
   (while (<= character ?z)
     (let ((func-name-symbol (make-symbol (format "my-switch-to-register-%c" character))))
-      (global-set-key (kbd (format "H-%c" character))
+      (global-set-key (kbd (format "s-%c" character))
 		      (eval (list 'defun func-name-symbol '()
 				  (format "switch to buffer of register %c" character)
 				  '(interactive)