diff --git a/collects/slideshow/cmdline.rkt b/collects/slideshow/cmdline.rkt
index 03186124e7..2cc94f98a0 100644
--- a/collects/slideshow/cmdline.rkt
+++ b/collects/slideshow/cmdline.rkt
@@ -44,7 +44,7 @@
     (define print-target #f)
     (define smoothing? #t)
     (define screen-number 0)
-    (define half-screen? #f)
+    (define right-half-screen? #f)
     
     (define init-page 0)
 
@@ -122,8 +122,8 @@
          (set! use-prefetch-in-preview? #t))
         (("--keep-titlebar") "give the slide window a title bar and resize border"
          (set! keep-titlebar? #t))
-        (("--half-screen") "display slides on right half of the screen"
-         (set! half-screen? #t)
+        (("--right-half-screen") "display slides on right half of the screen"
+         (set! right-half-screen? #t)
          (set! keep-titlebar? #t)
          (set! actual-screen-w (/ actual-screen-w 2)))
         (("--comment") "display commentary in window"
diff --git a/collects/slideshow/sig.rkt b/collects/slideshow/sig.rkt
index 5716100206..9286b75c5f 100644
--- a/collects/slideshow/sig.rkt
+++ b/collects/slideshow/sig.rkt
@@ -99,7 +99,7 @@
      trust-me?
      quad-view?
      keep-titlebar?
-     half-screen? 
+     right-half-screen? 
      two-frames?
      use-prefetch?
      use-prefetch-in-preview?
diff --git a/collects/slideshow/viewer.rkt b/collects/slideshow/viewer.rkt
index 5f83e29f71..e78546df86 100644
--- a/collects/slideshow/viewer.rkt
+++ b/collects/slideshow/viewer.rkt
@@ -408,13 +408,13 @@
 			      #f))))
 
 	  (super-new)))
-      
+
       (define-values (screen-left-inset screen-top-inset)
 	(if config:keep-titlebar?
 	    (values 0 0)
 	    (get-display-left-top-inset #:monitor config:screen-number)))
 
-      (when config:half-screen?
+      (when config:right-half-screen?
         (set! screen-left-inset (- screen-left-inset config:actual-screen-w)))
 
       (define fullscreen?