diff --git a/hemlock/screen.lisp b/hemlock/screen.lisp
index 42fa817eadc914022dd054ea46f393fc63c5fcf3..b495f27626b5dd3dd5f0af487282c9e067f6ae12 100644
--- a/hemlock/screen.lisp
+++ b/hemlock/screen.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/screen.lisp,v 1.1.1.3 1991/02/08 16:37:20 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/screen.lisp,v 1.1.1.4 1991/07/26 21:41:30 chiles Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -45,17 +45,20 @@
 
 ;;;; Window operations.
 
-(defun make-window (start &key
-			  (modelinep t)
-			  (device nil)
-			  window
+(defun make-window (start &key (modelinep t) (device nil) window
+			  (proportion .5)			  
 			  (font-family *default-font-family*)
-			  (ask-user nil)
-			  x y
+			  (ask-user nil) x y
 			  (width (value ed::default-window-width))
 			  (height (value ed::default-window-height)))
-  "Make a window that displays text starting at the mark Start.  The default
-   action is to split the current window to make room for the new window.
+  "Make a window that displays text starting at the mark start.  The default
+   action is to make the new window a proportion of the current window's height
+   to make room for the new window.
+
+   Proportion determines what proportion of the current window's height
+   the new window will use.  The current window retains whatever space left
+   after accommodating the new one.  The default is to split the current window
+   in half.
 
    Modelinep specifies whether the window should display buffer modelines.
 
@@ -77,7 +80,7 @@
   (let* ((device (or device (device-hunk-device (window-hunk (current-window)))))
 	 (window (funcall (device-make-window device)
 			  device start modelinep window font-family
-			  ask-user x y width height)))
+			  ask-user x y width height proportion)))
     (unless window (editor-error "Could not make a window."))
     (invoke-hook ed::make-window-hook window)
     window))