From 7c588937aed3162ede684b8b06788e07aaa4f265 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 1 Dec 2005 20:07:34 +0000 Subject: [PATCH] fix Open URL browse button svn: r1464 --- collects/help/private/gui.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/help/private/gui.ss b/collects/help/private/gui.ss index 3261fb0e06..6b09118909 100644 --- a/collects/help/private/gui.ss +++ b/collects/help/private/gui.ss @@ -551,7 +551,7 @@ (lambda (b e) (let ([f (get-file)]) (when f - (send t set-value (string-append "file:" f)) + (send t set-value (string-append "file:" (path->string f))) (update-ok)))))) (define spacer (make-object vertical-pane% p)) (define result #f)