diff --git a/collects/net/scribblings/cookie.scrbl b/collects/net/scribblings/cookie.scrbl
index d1eaf923ca..75cbff2afc 100644
--- a/collects/net/scribblings/cookie.scrbl
+++ b/collects/net/scribblings/cookie.scrbl
@@ -112,7 +112,7 @@ Raised for errors when handling cookies.}
 Produces
 
 @schemeblock[
-#, @schemeresultfont{"foo=bar; Max-Age=3600; Path=/servlets; Version=1"}
+@#,schemeresultfont{"foo=bar; Max-Age=3600; Path=/servlets; Version=1"}
 ]
 
 To use this output in a ``regular'' CGI, instead of the last line use:
diff --git a/collects/net/scribblings/imap.scrbl b/collects/net/scribblings/imap.scrbl
index cbce91ff14..82d2ef2583 100644
--- a/collects/net/scribblings/imap.scrbl
+++ b/collects/net/scribblings/imap.scrbl
@@ -381,10 +381,10 @@ message-state changes (so they will not show up through
 @examples[
 (eval:alts (imap-store imap '+ '(1 2 3) (list (symbol->imap-flag 'deleted)))
            (void))
-(code:comment #, @t{marks the first three messages to be deleted})
+(code:comment @#,t{marks the first three messages to be deleted})
 (eval:alts (imap-expunge imap) (void))
-(code:comment #, @t{permanently removes the first three messages (and possibly})
-(code:comment #, @t{others) from the currently-selected mailbox})
+(code:comment @#,t{permanently removes the first three messages (and possibly})
+(code:comment @#,t{others) from the currently-selected mailbox})
 ]}
 
 
diff --git a/collects/net/scribblings/pop3.scrbl b/collects/net/scribblings/pop3.scrbl
index b8c8555377..e77ce5de20 100644
--- a/collects/net/scribblings/pop3.scrbl
+++ b/collects/net/scribblings/pop3.scrbl
@@ -175,7 +175,7 @@ Raised when the server produces a mal-formed response.}
   "Status: RO")
  ("some body" "text" "goes" "." "here" "." "")
  #,pt (get-unique-id/single c 205)
- #, @schemeerror{no message numbered 205 available for unique id}
+ @#,schemeerror{no message numbered 205 available for unique id}
  #,pt (list-tail (get-unique-id/all c) 194)
  ((195 . "e24d13c7ef050000") (196 . "3ad2767070050000"))
  #,pt (get-unique-id/single c 196)
diff --git a/collects/net/scribblings/tcp.scrbl b/collects/net/scribblings/tcp.scrbl
index 0bbd37886d..128b5cad91 100644
--- a/collects/net/scribblings/tcp.scrbl
+++ b/collects/net/scribblings/tcp.scrbl
@@ -31,7 +31,7 @@ See also @scheme[tcp-redirect] and @scheme[make-ssl-tcp@].
                      [max-allow-wait exact-nonnegative-integer? 4]
                      [reuse? any/c #f]
                      [hostname (or/c string? false/c) #f]) 
-         #, @sigelem[tcp^ tcp-listener?]]{
+         @#,sigelem[tcp^ tcp-listener?]]{
 
 Like @scheme[tcp-listen] from @schememodname[scheme/tcp].}
 
@@ -58,21 +58,21 @@ Like @scheme[tcp-connect] from @schememodname[scheme/tcp].}
 
 Like @scheme[tcp-connect/enable-break] from @schememodname[scheme/tcp].}
 
-@defproc[(tcp-accept [listener #, @sigelem[tcp^ tcp-listener?]])
+@defproc[(tcp-accept [listener @#,sigelem[tcp^ tcp-listener?]])
          (values input-port? output-port?)]{
 
 Like @scheme[tcp-accept] from @schememodname[scheme/tcp].}
 
-@defproc[(tcp-accept/enable-break [listener #, @sigelem[tcp^ tcp-listener?]])
+@defproc[(tcp-accept/enable-break [listener @#,sigelem[tcp^ tcp-listener?]])
          (values input-port? output-port?)]{
 
 Like @scheme[tcp-accept/enable-break] from @schememodname[scheme/tcp].}
 
-@defproc[(tcp-accept-ready? [listener #, @sigelem[tcp^ tcp-listener?]]) boolean?]{
+@defproc[(tcp-accept-ready? [listener @#,sigelem[tcp^ tcp-listener?]]) boolean?]{
 
 Like @scheme[tcp-accept-ready?] from @schememodname[scheme/tcp].}
 
-@defproc[(tcp-close [listener #, @sigelem[tcp^ tcp-listener?]]) void?]{
+@defproc[(tcp-close [listener @#,sigelem[tcp^ tcp-listener?]]) void?]{
 
 Like @scheme[tcp-close] from @schememodname[scheme/tcp].}
 
diff --git a/collects/net/scribblings/uri-codec.scrbl b/collects/net/scribblings/uri-codec.scrbl
index 824dd3804a..52bde1da7c 100644
--- a/collects/net/scribblings/uri-codec.scrbl
+++ b/collects/net/scribblings/uri-codec.scrbl
@@ -141,19 +141,19 @@ use/recognize only of the separators.
 @examples[
 #:eval uri-codec-eval
 (define ex '((x . "foo") (y . "bar") (z . "baz")))
-(code:line (current-alist-separator-mode 'amp) (code:comment #, @t{try @scheme['amp]...}))
+(code:line (current-alist-separator-mode 'amp) (code:comment @#,t{try @scheme['amp]...}))
 (form-urlencoded->alist "x=foo&y=bar&z=baz")
 (form-urlencoded->alist "x=foo;y=bar;z=baz")
 (alist->form-urlencoded ex)
-(code:line (current-alist-separator-mode 'semi) (code:comment #, @t{try @scheme['semi]...}))
+(code:line (current-alist-separator-mode 'semi) (code:comment @#,t{try @scheme['semi]...}))
 (form-urlencoded->alist "x=foo;y=bar;z=baz")
 (form-urlencoded->alist "x=foo&y=bar&z=baz")
 (alist->form-urlencoded ex)
-(code:line (current-alist-separator-mode 'amp-or-semi) (code:comment #, @t{try @scheme['amp-or-semi]...}))
+(code:line (current-alist-separator-mode 'amp-or-semi) (code:comment @#,t{try @scheme['amp-or-semi]...}))
 (form-urlencoded->alist "x=foo&y=bar&z=baz")
 (form-urlencoded->alist "x=foo;y=bar;z=baz")
 (alist->form-urlencoded ex)
-(code:line (current-alist-separator-mode 'semi-or-amp) (code:comment #, @t{try @scheme['semi-or-amp]...}))
+(code:line (current-alist-separator-mode 'semi-or-amp) (code:comment @#,t{try @scheme['semi-or-amp]...}))
 (form-urlencoded->alist "x=foo&y=bar&z=baz")
 (form-urlencoded->alist "x=foo;y=bar;z=baz")
 (alist->form-urlencoded ex)