diff --git a/collects/drscheme/private/language.ss b/collects/drscheme/private/language.ss
index 5673bbfc0d..1e31af0f3e 100644
--- a/collects/drscheme/private/language.ss
+++ b/collects/drscheme/private/language.ss
@@ -154,7 +154,7 @@
              (= (vector-length printable)
                 (procedure-arity make-simple-settings))
              (boolean? (vector-ref printable 0))
-             (memq (vector-ref printable 1) '(constructor quasiquote write current-print))
+             (memq (vector-ref printable 1) '(constructor quasiquote write))
              (memq (vector-ref printable 2) 
                    '(mixed-fraction 
                      mixed-fraction-e
@@ -191,7 +191,7 @@
                                   insert-newlines
                                   annotations))
   ;;  case-sensitive  : boolean
-  ;;  printing-style  : (union 'write 'constructor 'quasiquote 'current-print)
+  ;;  printing-style  : (union 'write 'constructor 'quasiquote)
   ;;  fraction-style  : (union 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e)
   ;;  show-sharing    : boolean
   ;;  insert-newlines : boolean
@@ -236,8 +236,7 @@
                              (string-constant output-style-label)
                              (list (string-constant constructor-printing-style)
                                    (string-constant quasiquote-printing-style)
-                                   (string-constant write-printing-style)
-                                   (string-constant print-printing-style))
+                                   (string-constant write-printing-style))
                              output-panel
                              (λ (rb evt)
                                (let ([on? (not (= (send rb get-selection) 3))])
@@ -264,8 +263,7 @@
           (case (send output-style get-selection)
             [(0) 'constructor]
             [(1) 'quasiquote]
-            [(2) 'write]
-            [(3) 'current-print])
+            [(2) 'write])
           (if (send fraction-style get-value)
               'repeating-decimal-e
               'mixed-fraction-e)
@@ -282,12 +280,7 @@
                (case (simple-settings-printing-style settings)
                  [(constructor) 0]
                  [(quasiquote) 1]
-                 [(write) 2]
-                 [(current-print) 3]))
-         (let ([on? (not (eq? 'current-print (simple-settings-printing-style settings)))])
-           (send fraction-style enable on?)
-           (send show-sharing enable on?)
-           (send insert-newlines enable on?))
+                 [(write) 2]))
          (send fraction-style set-value (eq? (simple-settings-fraction-style settings)
                                              'repeating-decimal-e))
          (send show-sharing set-value (simple-settings-show-sharing settings))
@@ -301,9 +294,6 @@
   
   ;; simple-module-based-language-render-value/format : TST settings port (union #f (snip% -> void)) (union 'infinity number) -> void
   (define (simple-module-based-language-render-value/format value settings port width)
-    (if (eq? (simple-settings-printing-style settings) 'current-print)
-        (parameterize ([current-output-port port])
-          ((current-print) value))
         (let ([converted-value (simple-module-based-language-convert-value value settings)])
           (setup-printing-parameters 
            (λ ()
@@ -318,7 +308,7 @@
                   (pretty-print converted-value port))
                 (newline port)]))
            settings
-           width))))
+           width)))
   
   ;; setup-printing-parameters : (-> void) simple-settings number -> void
   (define (setup-printing-parameters thunk settings width)
@@ -386,7 +376,6 @@
   (define (simple-module-based-language-convert-value value settings)
     (case (simple-settings-printing-style settings)
       [(write) value]
-      [(current-print) value]
       [(constructor)
        (parameterize ([constructor-style-printing #t]
                       [show-sharing (simple-settings-show-sharing settings)]
@@ -456,7 +445,6 @@
        (define (convert-value value)
          ,(case (simple-settings-printing-style setting)
             [(write) `value]
-            [(current-print) `value]
             [(constructor)
              `(parameterize ([constructor-style-printing #t]
                              [show-sharing ,(simple-settings-show-sharing setting)])
diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss
index fc03d75389..1b4fae527d 100644
--- a/collects/drscheme/private/rep.ss
+++ b/collects/drscheme/private/rep.ss
@@ -1402,8 +1402,7 @@ TODO
         (current-value-port (get-value-port))
         (current-input-port (get-in-box-port))
         
-        (current-print (lambda (v)
-                         (display-results (list v)))))
+        (current-print (lambda (v) (display-results (list v)))))
       
       (define/private (initialize-dispatch-handler) ;;; =User=
         (let* ([primitive-dispatch-handler (event-dispatch-handler)])
diff --git a/collects/drscheme/tool-lib.ss b/collects/drscheme/tool-lib.ss
index 6100d0db74..9cdfc2053e 100644
--- a/collects/drscheme/tool-lib.ss
+++ b/collects/drscheme/tool-lib.ss
@@ -1319,7 +1319,7 @@ all of the names in the tools library, for use defining keybindings
    drscheme:language:simple-settings-printing-style
    (drscheme:language:simple-settings?
     . -> .
-    (symbols 'constructor 'quasiquote 'write 'current-print))
+    (symbols 'constructor 'quasiquote 'write))
    (simple-settings)
    
    @{Extracts the printing-style setting from a simple-settings.})
@@ -1373,7 +1373,7 @@ all of the names in the tools library, for use defining keybindings
   (proc-doc/names
    drscheme:language:make-simple-settings
    (-> boolean?
-       (symbols 'constructor 'quasiquote 'write 'current-print)
+       (symbols 'constructor 'quasiquote 'write)
        (symbols 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e)
        boolean?
        boolean?
diff --git a/doc/release-notes/drscheme/HISTORY.txt b/doc/release-notes/drscheme/HISTORY.txt
index f872c7bb40..66789aafe6 100644
--- a/doc/release-notes/drscheme/HISTORY.txt
+++ b/doc/release-notes/drscheme/HISTORY.txt
@@ -22,6 +22,13 @@
     the tools interface. Use drscheme:debug:error-display-handler/stacktrace
     instead.
 
+  . current-print's behavior is different in DrScheme. It
+    now prints to a separate port (the same on the REPL
+    printer uses, namely with blue output) and the style of
+    printing that it uses is controlled by the language
+    dialog (which means that the `current-print' option is
+    now gone from the language dialog)
+
 ------------------------------
         Version 372
 ------------------------------