From ed04d43b6533663dc4cc5a36a0a0f0cebaa2e4f3 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Thu, 5 Sep 2002 08:55:58 +0000
Subject: [PATCH] NeXTstep is dead.

---
 scheme/httpd/server.scm | 4 ++--
 start-web-server        | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/scheme/httpd/server.scm b/scheme/httpd/server.scm
index c0291f1..121a6b8 100755
--- a/scheme/httpd/server.scm
+++ b/scheme/httpd/server.scm
@@ -40,8 +40,8 @@ exec scsh -lm ../packages.scm -dm -o http-top -e top -s "$0" "$@"
     (define (top args)
       (display "We be jammin, now.\n") (force-output)
       (cond ((zero? (user-uid))
-	     (set-gid -2)  ; Should be (set-uid (->uid "nobody")) 
-	     (set-uid -2)))	; but NeXTSTEP loses. 
+	     (set-gid (->gid "nobody"))
+	     (set-uid (->uid "nobody"))))
 ;; invariant environment is know initilialized by cgi-handler itself
 ;;      (initialise-request-invariant-cgi-env)
       (httpd (with-path-handler 
diff --git a/start-web-server b/start-web-server
index 1647376..1ca0952 100755
--- a/start-web-server
+++ b/start-web-server
@@ -107,8 +107,8 @@ exec scsh -lm packages.scm -dm -o http-test -e main -s "$0" "$@"
       (get-options (cdr args))
       (format #t "options read~%")
       (cond ((zero? (user-uid))
-	     (set-gid -2)		; Should be (set-uid (->uid "nobody")) 
-	     (set-uid -2)))		; but NeXTSTEP loses. 
+	     (set-gid (->gid "nobody"))
+	     (set-uid (->uid "nobody"))))
 
       (format #t "Going to run Webserver with:
  htdocs-dir:    ~a