_Singleton Generates Multiple Objects!

; This is not the real script that I use for my project!!! This decoy script helps you understand better ;)
 
#include "Misc.au3"
 
Global $sProgramIdentifier
 
Func Test($sIdentifier)
    $sIdentifier = $sProgramIdentifier
    Switch _Singleton($sProgramIdentifier, 1)
        Case 0
            MsgBox(64, "Testing, Testing", "Its working!!")
        Case Else
            MsgBox(64, "Testing, Testing", "Its not working!!")
    EndSwitch
EndFunc
 
Test("Lick the lemon")