--- a/keyboard.rc	Sun Jul 18 16:51:07 1999 +0200
+++ b/keyboard.rc	Mon Jul 19 10:34:42 1999 +0200
@@ -30,11 +30,7 @@
 "/ Cmd-F94: undents selection-line by 4
 "/
 
-macros := Smalltalk at:#FunctionKeySequences.
-macros isNil ifTrue:[
-    macros := IdentityDictionary new.
-    Smalltalk at:#FunctionKeySequences put:macros.
-].
+macros := UserPreferences current functionKeySequences.
 
 "/
 "/ macro to replace a text selection by unix commands output