Index: plugins/fr/action_complex_pinch.tcl
===================================================================
--- plugins/fr/action_complex_pinch.tcl	(revision 748)
+++ plugins/fr/action_complex_pinch.tcl	(working copy)
@@ -20,8 +20,8 @@
     # TODO: check $object and $action (e.g. pinches arse)
     bMotionDoAction $channel [bMotionGetRealName $nick $host] "%VAR{stolens}"
     bMotionGetSad
-    # TODO: switch to using plugin settings for this
-    #set bMotionCache(lastEvil) $nick
+    # matching english plugin
+    bMotion_plugins_settings_set "system" "lastevil" $channel "" $nick
     driftFriendship $nick -1
     return 1
   }