Beit Yosef, Even HaEzer 177:25 · בית יוסף · free full Hebrew text
ומ"ש את שבא עליה שלא כדרכה חייב בבושת ופגם ולא בקנס פשוט הוא שחייב בבושת ופגם: