diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 280e2ca6d2..50382fed12 100644
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@@ -16,8 +16,13 @@
              (let ([b (box "")])
                (unless (get-res "HKEY_CLASSES_ROOT" "htmlfile\\shell\\open\\command" b)
                  (error 'send-url "couldn't find URL opener in the registry"))
-               (system (format "~a ~a" (unbox b) str)))
-             (error 'send-url "don't know how to open URL in Windows without MrEd")))]
+	       (let-values ([(out in id err status) (apply 
+						     values
+						     (process (format "~a ~a" (unbox b) str)))])
+	         (close-output-port in)
+		 (close-input-port out)
+		 (close-input-port err)))
+	     (error 'send-url "don't know how to open URL in Windows without MrEd")))]
       [(unix)
        (cond
          [(find-executable-path "opera" #f)