diff --git a/hemlock/bit-screen.lisp b/hemlock/bit-screen.lisp
index c6fa137d4580b50a51b1baf4b11f1af737868bf0..343724885423641e2dd58a5a92db44e086babce7 100644
--- a/hemlock/bit-screen.lisp
+++ b/hemlock/bit-screen.lisp
@@ -650,9 +650,13 @@
 (defconstant minimum-window-columns 8
   "Windows must be at least this many characters wide.")
 
+(eval-when (compile load eval)
+
 (defconstant xwindow-border-width 2 "X border around X windows")
 (defconstant xwindow-border-width*2 (* xwindow-border-width 2))
 
+); eval-when
+
 ;;; We must name windows (set the "name" property) to get around a bug in
 ;;; awm and twm.  They will not handle menu clicks without a window having
 ;;; a name.  We set the name to this silly thing.