DF 23.0

Cannot believe this is a bug, but the CurrentDateTime does not appear to be respecting the DF_DATE_FORMAT attribute

Code:
            Object oButton1 is a Button
                Set Location to 8 10
                Set Label to 'oButton1'
            
                Procedure OnClick
                    Integer iDate_Format
                    String  sNow
        
                    Get_Attribute DF_DATE_FORMAT to iDate_Format
                    Set_Attribute DF_DATE_FORMAT to DF_DATE_MILITARY
                        Move (CurrentDateTime()) to sNow
                        Showln sNow
                    Set_Attribute DF_DATE_FORMAT to iDate_Format
                End_Procedure
            End_Object
The date is in European format - not military.

Anyone else experienced this?