diff --git a/collects/scribble/scribble.tex b/collects/scribble/scribble.tex
index e9affd9254..4bb39e8668 100644
--- a/collects/scribble/scribble.tex
+++ b/collects/scribble/scribble.tex
@@ -96,9 +96,11 @@
 % The 'inset nested-flow style uses the `quote' environment
 
 % Indent a 'code-inset nested flow:
-\newenvironment{SCodeFlow}{\begin{list}{}{\topsep=0pt\partopsep=0pt%
+\newcommand{\SCodePreSkip}{\vskip\abovedisplayskip}
+\newcommand{\SCodePostSkip}{\vskip\belowdisplayskip}
+\newenvironment{SCodeFlow}{\SCodePreSkip\begin{list}{}{\topsep=0pt\partopsep=0pt%
 \listparindent=0pt\itemindent=0pt\labelwidth=0pt\leftmargin=2ex\rightmargin=0pt%
-\itemsep=0pt\parsep=0pt}\item}{\end{list}}
+\itemsep=0pt\parsep=0pt}\item}{\end{list}\SCodePostSkip}
 
 % The 'compact itemization style:
 \newenvironment{compact}{\begin{itemize}}{\end{itemize}}
diff --git a/collects/scribble/sigplan/style.tex b/collects/scribble/sigplan/style.tex
index 65966ba26f..39f4f6b98a 100644
--- a/collects/scribble/sigplan/style.tex
+++ b/collects/scribble/sigplan/style.tex
@@ -18,11 +18,3 @@
 \renewcommand{\SCategoryPlus}[4]{\category{#1}{#2}{#3}[#4]}
 \renewcommand{\STerms}[1]{\terms{#1}}
 \renewcommand{\SKeywords}[1]{\keywords{#1}}
-
-% Add space around code insets:
-% Indent a 'code-inset nested flow:
-\newcommand{\SCodePreSkip}{\vskip\medskipamount}
-\newcommand{\SCodePostSkip}{\vskip\medskipamount}
-\renewenvironment{SCodeFlow}{\SCodePreSkip\begin{list}{}{\topsep=0pt\partopsep=0pt%
-\listparindent=0pt\itemindent=0pt\labelwidth=0pt\leftmargin=2ex\rightmargin=0pt%
-\itemsep=0pt\parsep=0pt}\item}{\end{list}\SCodePostSkip}