Extract subpath crash and question.

[runflacruiser]

Hi.
I'm getting a crash with this code.

Private Sub myExtractTest()
Dim s As Shape, sNew As Shape
Set s = ActiveShape
Set sNew = s.Curve.SubPaths(1).Extract

End Sub

(debug and rerun)

I'm also testing with code from help section and getting unexpected results.

Sub helpExtractTest()
 Dim spath As SubPath
 Dim s As Shape, sExt As Shape
 Dim i As Long
 Set s = ActiveShape
 If s.Curve.SubPaths.count < 2 Then Exit Sub
 For i = s.Curve.SubPaths.count To 1 Step -1
  Set spath = s.Curve.SubPaths(i)
  Set sExt = spath.Extract(s)
  sExt.Outline.Width = 0.01
  sExt.Outline.Color = ActivePalette.Color(13 + i)
 Next i
End Sub

Use attached file for testing.
Any ideas?