Problem with geometry and wrapfig

Adding \WFclear at the end of the second enumerate seems to fix it. I would still avoid using list environments which overlap wrapfig in any way.

\documentclass[a4paper,10pt]{article}

\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}

\usepackage[a4paper,centering,reversemarginpar]{geometry}
\usepackage{pstricks-add}
\usepackage[french]{babel} %german,francais
\usepackage{wrapfig}

\geometry{top=1cm,left=1.5cm,bottom=1cm,footskip=.5cm}

\begin{document}


\setlength{\columnsep}{0pt}%
\begin{wrapfigure}{r}{0pt}
\fbox{\begin{pspicture}(-5,-1)(5,5)
Essai
\end{pspicture}}
\end{wrapfigure}
Soit un segment [AB] de longueur 8 cm et le demi-cercle C de diamètre [AB], de centre O.
M est un point de demi-cercle C et H est le pied de la hauteur issue de M dans le triangle AOM.
On souhaite savoir où placer le point M pour que l'aire du triangle soit égale à 4.
\par\smallskip
On note $x=\rm AH$ et on appelle $f$ la fonction qui modélise l'aire de AOM.
\begin{enumerate}
\item A quel ensemble appartient la variable $x$ ?
\item 
\begin{enumerate}
\item Exprimer $f(x)$ en fonction de AO et MH.
\item En utilisant le théorème de Pythagore montrer que ${\rm MH}^2=16-(4-x)^2$.
\item En déduire une expression de $f(x)$.
\end{enumerate}\WFclear
\item 
\begin{enumerate}
\item Montrer que le problème posé revient à résoudre ${\rm MH}^2=4$
\item Résoudre dans R l'équation $X^2=12$
\end{enumerate}
\item Résoudre le problème posé.
\end{enumerate}

\end{document}