Index: /Include/Classes/System/Media/SystemSound.ab
===================================================================
--- /Include/Classes/System/Media/SystemSound.ab	(revision 115)
+++ /Include/Classes/System/Media/SystemSound.ab	(revision 116)
@@ -1,8 +1,14 @@
 Class SystemSound
-	Const SoundID As Long
+	SoundID As Long
 
 Public
+	Sub SystemSound()
+		SoundID=SND_ALIAS_SYSTEMDEFAULT
+	End Sub
 	Sub SystemSound(value As Long)
 		SoundID=value
+	End Sub
+	Sub SystemSound(ByRef ss As SystemSound)
+		SoundID=ss.SoundID
 	End Sub
 
Index: /Include/Classes/System/Media/SystemSounds.ab
===================================================================
--- /Include/Classes/System/Media/SystemSounds.ab	(revision 115)
+++ /Include/Classes/System/Media/SystemSounds.ab	(revision 116)
@@ -1,8 +1,3 @@
 Class SystemSounds
-Public
-	Override Function ToString() As String
-		Return "SystemSounds"
-	End Function
-
 Public
 	Static Function Asterisk() As SystemSound
@@ -26,3 +21,7 @@
 		Return ret
 	End Function
+
+	Override Function ToString() As String
+		Return "SystemSounds"
+	End Function
 End Class
Index: /Include/Classes/System/Media/index.ab
===================================================================
--- /Include/Classes/System/Media/index.ab	(revision 115)
+++ /Include/Classes/System/Media/index.ab	(revision 116)
@@ -4,6 +4,6 @@
 #require <api_mmsys.sbp>
 
-#include <Classes/System/Media/SystemSound.ab>
-#include <Classes/System/Media/SystemSounds.ab>
+#require <Classes/System/Media/SystemSound.ab>
+#require <Classes/System/Media/SystemSounds.ab>
 
 #endif