diff -r f5417836dbea -r 01594f816e3a src/ZF/Tools/typechk.ML
--- a/src/ZF/Tools/typechk.ML	Mon May 17 15:11:25 2010 +0200
+++ b/src/ZF/Tools/typechk.ML	Mon May 17 23:54:15 2010 +0200
@@ -118,7 +118,7 @@
     "ZF type-checking";
 
 val _ =
-  OuterSyntax.improper_command "print_tcset" "print context of ZF typecheck" OuterKeyword.diag
+  Outer_Syntax.improper_command "print_tcset" "print context of ZF typecheck" Keyword.diag
     (Scan.succeed (Toplevel.no_timing o Toplevel.unknown_context o
       Toplevel.keep (print_tcset o Toplevel.context_of)));