remove debugging printf (merge to 4.2.2)

svn: r16058

collects/setup/main.ss

@@ -129,7 +129,6 @@
 		           ;; If something goes wrong, of course, give up on .zo files.
                            (parameterize ([uncaught-exception-handler
                                            (lambda (exn)
-                                             (printf "~s\n" (exn-message exn))
                                              (when (exn:break? exn) (exit 1))
                                              (if skip-zo?
                                                  (escape

collects/setup/scribble.ss

@@ -289,10 +289,13 @@
                                  (std-path "scheme.css")
                                  (std-path "scribble-common.js")))
                          null)]
-        ;; up-path is #t, which makes it go to the (user's) start page
-        ;; (using cookies) -- except when it is the start page itself
-        ;; (one of the two)
-        [up-path     (not root?)]
+        ;; For main-directory, non-start files, up-path is #t, which makes the
+        ;; "up" link go to the (user's) start page using cookies. For other files,
+        ;; 
+        [up-path     (and (not root?)
+                          (if main?
+                              #t
+                              (build-path (find-user-doc-dir) "index.html")))]
         [search-box? #t]))))
 
 (define (pick-dest latex-dest doc)